home *** CD-ROM | disk | FTP | other *** search
/ Inter.Net 55-1 / Inter.Net 55-1.iso / CBuilder / Info / TeachU14 / SAMS / Code / Day09 / spmain.dfm / spmain.txt
Encoding:
Text File  |  1998-02-08  |  6.2 KB  |  234 lines
  1. object ScratchPad: TScratchPad
  2.   Left = 196
  3.   Top = 110
  4.   Width = 544
  5.   Height = 375
  6.   Caption = 'Scratch Pad 1.0'
  7.   Font.Charset = DEFAULT_CHARSET
  8.   Font.Color = clWindowText
  9.   Font.Height = -11
  10.   Font.Name = 'MS Sans Serif'
  11.   Font.Style = []
  12.   Menu = MainMenu
  13.   OnCreate = FormCreate
  14.   PixelsPerInch = 96
  15.   TextHeight = 13
  16.   object Bevel1: TBevel
  17.     Left = 0
  18.     Top = 0
  19.     Width = 536
  20.     Height = 2
  21.     Align = alTop
  22.   end
  23.   object SpeedBar: TPanel
  24.     Left = 0
  25.     Top = 2
  26.     Width = 536
  27.     Height = 32
  28.     Align = alTop
  29.     BevelOuter = bvNone
  30.     TabOrder = 0
  31.     object FileOpenBtn: TSpeedButton
  32.       Left = 5
  33.       Top = 4
  34.       Width = 25
  35.       Height = 25
  36.       Hint = 'Open|Open An Existing File'
  37.       Glyph.Data = {
  38.         76010000424D7601000000000000760000002800000020000000100000000100
  39.         0400000000000001000000000000000000001000000010000000000000000000
  40.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  41.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
  42.         333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
  43.         0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
  44.         07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
  45.         07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
  46.         0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
  47.         33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
  48.         B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
  49.         3BB33773333773333773B333333B3333333B7333333733333337}
  50.       NumGlyphs = 2
  51.       ParentShowHint = False
  52.       ShowHint = True
  53.       OnClick = FileOpenClick
  54.     end
  55.     object FileSaveBtn: TSpeedButton
  56.       Left = 30
  57.       Top = 4
  58.       Width = 25
  59.       Height = 25
  60.       Hint = 'Save|Save A File'
  61.       Glyph.Data = {
  62.         76010000424D7601000000000000760000002800000020000000100000000100
  63.         0400000000000001000000000000000000001000000010000000000000000000
  64.         800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
  65.         FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333330070
  66.         7700333333337777777733333333008088003333333377F73377333333330088
  67.         88003333333377FFFF7733333333000000003FFFFFFF77777777000000000000
  68.         000077777777777777770FFFFFFF0FFFFFF07F3333337F3333370FFFFFFF0FFF
  69.         FFF07F3FF3FF7FFFFFF70F00F0080CCC9CC07F773773777777770FFFFFFFF039
  70.         99337F3FFFF3F7F777F30F0000F0F09999937F7777373777777F0FFFFFFFF999
  71.         99997F3FF3FFF77777770F00F000003999337F773777773777F30FFFF0FF0339
  72.         99337F3FF7F3733777F30F08F0F0337999337F7737F73F7777330FFFF0039999
  73.         93337FFFF7737777733300000033333333337777773333333333}
  74.       NumGlyphs = 2
  75.       ParentShowHint = False
  76.       ShowHint = True
  77.       OnClick = FileSaveClick
  78.     end
  79.   end
  80.   object StatusBar: TStatusBar
  81.     Left = 0
  82.     Top = 310
  83.     Width = 536
  84.     Height = 19
  85.     Panels = <>
  86.     SimplePanel = True
  87.   end
  88.   object Memo: TMemo
  89.     Left = 0
  90.     Top = 34
  91.     Width = 536
  92.     Height = 276
  93.     Align = alClient
  94.     Font.Charset = DEFAULT_CHARSET
  95.     Font.Color = clWindowText
  96.     Font.Height = -11
  97.     Font.Name = 'Fixedsys'
  98.     Font.Style = []
  99.     ParentFont = False
  100.     PopupMenu = MemoPopup
  101.     ScrollBars = ssVertical
  102.     TabOrder = 2
  103.   end
  104.   object MainMenu: TMainMenu
  105.     Left = 8
  106.     Top = 48
  107.     object FileMenu: TMenuItem
  108.       Caption = '&File'
  109.       object FileNew: TMenuItem
  110.         Caption = '&New'
  111.         OnClick = FileNewClick
  112.       end
  113.       object FileOpen: TMenuItem
  114.         Caption = '&Open...'
  115.         OnClick = FileOpenClick
  116.       end
  117.       object FileSave: TMenuItem
  118.         Caption = '&Save...'
  119.         OnClick = FileSaveClick
  120.       end
  121.       object FileSaveAs: TMenuItem
  122.         Caption = 'Save &As...'
  123.         OnClick = FileSaveAsClick
  124.       end
  125.       object N1: TMenuItem
  126.         Caption = '-'
  127.       end
  128.       object FilePrint: TMenuItem
  129.         Caption = '&Print...'
  130.         Enabled = False
  131.       end
  132.       object FilePrintSetup: TMenuItem
  133.         Caption = 'Print Set&up...'
  134.         Enabled = False
  135.       end
  136.       object N2: TMenuItem
  137.         Caption = '-'
  138.       end
  139.       object FileExit: TMenuItem
  140.         Caption = 'E&xit'
  141.         OnClick = FileExitClick
  142.       end
  143.     end
  144.     object Edit1: TMenuItem
  145.       Caption = '&Edit'
  146.       object EditUndo: TMenuItem
  147.         Caption = '&Undo'
  148.         ShortCut = 16474
  149.         OnClick = EditUndoClick
  150.       end
  151.       object N5: TMenuItem
  152.         Caption = '-'
  153.       end
  154.       object EditCut: TMenuItem
  155.         Caption = 'Cu&t'
  156.         ShortCut = 16472
  157.         OnClick = EditCutClick
  158.       end
  159.       object EditCopy: TMenuItem
  160.         Caption = '&Copy'
  161.         ShortCut = 16451
  162.         OnClick = EditCopyClick
  163.       end
  164.       object EditPaste: TMenuItem
  165.         Caption = '&Paste'
  166.         ShortCut = 16470
  167.         OnClick = EditPasteClick
  168.       end
  169.       object N4: TMenuItem
  170.         Caption = '-'
  171.       end
  172.       object EditSelectAll: TMenuItem
  173.         Caption = 'Select &All'
  174.         ShortCut = 16449
  175.         OnClick = EditSelectAllClick
  176.       end
  177.       object EditFind: TMenuItem
  178.         Caption = '&Find...'
  179.         Enabled = False
  180.       end
  181.       object EditReplace: TMenuItem
  182.         Caption = 'R&eplace...'
  183.         Enabled = False
  184.       end
  185.       object N3: TMenuItem
  186.         Caption = '-'
  187.       end
  188.       object EditWordWrap: TMenuItem
  189.         Caption = '&Word Wrap'
  190.         Checked = True
  191.         OnClick = EditWordWrapClick
  192.       end
  193.     end
  194.     object Help1: TMenuItem
  195.       Caption = '&Help'
  196.       object HelpContents: TMenuItem
  197.         Caption = '&Contents'
  198.         Enabled = False
  199.       end
  200.       object HelpAbout: TMenuItem
  201.         Caption = '&About...'
  202.         OnClick = HelpAboutClick
  203.       end
  204.     end
  205.   end
  206.   object OpenDialog: TOpenDialog
  207.     Left = 40
  208.     Top = 48
  209.   end
  210.   object SaveDialog: TSaveDialog
  211.     Left = 72
  212.     Top = 48
  213.   end
  214.   object MemoPopup: TPopupMenu
  215.     Left = 104
  216.     Top = 48
  217.     object PopupCut: TMenuItem
  218.       Caption = 'Cu&t'
  219.       ShortCut = 16472
  220.       OnClick = EditCutClick
  221.     end
  222.     object PopupCopy: TMenuItem
  223.       Caption = '&Copy'
  224.       ShortCut = 16451
  225.       OnClick = EditCopyClick
  226.     end
  227.     object PopupPaste: TMenuItem
  228.       Caption = '&Paste'
  229.       ShortCut = 16470
  230.       OnClick = EditPasteClick
  231.     end
  232.   end
  233. end
  234.